home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas41 / test40.bas < prev    next >
Encoding:
BASIC Source File  |  1991-01-31  |  6.5 KB  |  257 lines
  1.    if pbver < 3.9 then print "Incorrect Version of PBASIC":stop
  2.    start = timer
  3.    dim ar(100), cr(100)
  4.    dim br(10)
  5.    cls
  6.    restore
  7.    a = -1
  8.    if port=1 then a=romver
  9.    ?"rom Version ";a;"  Free: ";fre(0)
  10.    ?"Running test of PBASIC " pbver " on ";
  11.    if port=0 then ?"PC" else ?"Portfolio"
  12.    print "Command Tail : " command$
  13.    read a,b : if a <> 1 then print "Read Error":stop
  14.    read a : if a <> 11 then print "Read Error":stop
  15.    read a : if a <> 12 then print "Data Error":stop
  16.  
  17.    y = 11
  18.    if y <> 11 then print "Assignment Error":stop
  19.    for x = 1 to 10
  20.      y = y + 2
  21.    next x
  22.    restore 13
  23.    read a : if a <> 21 then print "Restore Error":stop
  24.    if y = 31 then goto 10 else print "Loop Error":stop
  25.    print "this is never execute" : stop
  26. 10 a = 1
  27.    a = a + 15
  28.    if a <> 16 then print "Addition error":stop
  29.    a = a * 10
  30.    if a <> 160 then print "Multiply error":stop
  31.    a = a / 20
  32.    if a <> 8 then print "divide error":stop
  33.    a = a - 5
  34.    if a <> 3 then print "Subtraction Error":stop
  35.    a = 10
  36.    b = a \ 3
  37.    if b <> 3 then print "Int. Division Error":stop
  38.    b = a % 3
  39.    if b <> 1 then print "Mod Error":stop
  40.    if 2^5 <> 32 then print "Exp Error":stop
  41.    if int(12^2.5) <> int(498.831) then print "Exp Error":stop
  42.    if 2^-1 <> .5 then print "Exp Error":stop
  43.  
  44.    if fix(1234567.123)<>1234567 then print "Fix Error":stop
  45.    if int(1234565.123)<>1234565 then print "Int Error":stop
  46.  
  47. 11 data 1,2
  48. 12 data 11,12,13,14,15,16,17,18,19,20
  49. 13 data 21,22,23,24,25,26,27,28,29,30
  50.  
  51.    a = 1.23e+2 : if a<> 123 then print "Real Number error":stop
  52.    a = 1.23e-2 : if a <> .0123 then print "Real Number Error":stop
  53.  
  54.  
  55.    for a1 = 0 to 10
  56.       ar(a1) = a1 : br(a1) = ar(a1)
  57.    next
  58.  
  59.    if abs(-5)<>5 then print "ABS Error":stop
  60.    for a1 = 10 to 0 step -1
  61.       if ar(a1) <> br(a1) then print "Array Error" : stop
  62.    next a1
  63.  
  64.    m = 1
  65.    n = 2
  66.    swap m,n : if m<> 2 then print "Swap Error" :stop
  67.    swap m,n
  68.  
  69.    swap ar(7),br(8) : if br(8) <> 7 then print br(8), "Swap Error":stop
  70.    swap ar(7),br(8)
  71.  
  72.    swap ar(5), m : if m <> 5 then print "Swap Error":stop
  73.    swap m, ar(5) : if m <> 1 then print "Swap Error":stop
  74.    y = 12
  75.    for x = 10 to 1 step -1
  76.       y = y - 2
  77.    next x
  78.    if y = 10 then print "Loop error":stop
  79.    if y >= 0 then print "loop error":stop
  80.    if y < 10 then goto 20
  81.    print "If Error":stop
  82. 20 if y <= -8 then goto 30
  83.    print "If error":stop
  84. 30 if y <> -8 then print "Loop Error":stop
  85.    gosub 100
  86.    if y = -8 then "Gosub error":stop
  87.  
  88.    if &h100 <> 256 then print "Hex error":stop
  89.    if &o377 <> 255 then print "Octal error":stop
  90.    if 15 <> &17 then print "Octal error":stop
  91.  
  92.    if port=1 then def seg=&hb000 else def seg = &hb800
  93.    poke 0,196
  94.    if port=1 then refresh
  95.    if peek(0) <> 196 then print peek(0),"Peek/Poke/Seg Error":stop
  96.    poke 0,82
  97.    if port=1 then refresh
  98.  
  99.    abcde = 12345
  100.    rem abcde = 0
  101.    if abcde <> 12345 then print "Rem error":stop
  102.    'abcde = 1
  103.    if abcde = 1 then print "Rem Error":stop
  104.  
  105.    z = 1+2*3+4/5*6-1
  106.    w = 10.8
  107.    if z <> w then print z,w,"Precedence error":stop
  108.  
  109.    if sqr(100)<>10 then print "SQR Error":stop
  110.  
  111.    cx = csrlin : cy = pos(0)
  112.    locate 5,6
  113.    if csrlin <> 5 then print "Locate Error":stop
  114.    if pos(0) <> 6 then print "Locate Error":stop
  115.    locate cx, cy
  116.  
  117.    gosub 1234: ' string tests
  118.  
  119.       on port+1 goto 1000, 2000 'port tests
  120.       print "On Goto Error":stop
  121. 1000
  122.     ' new features for 4.0
  123.     if deg(rad(deg(rad(45)))) <> 45 then ? "DEG/RAD Error":stop
  124.     if (3 and 1) <> 1 then ?"AND Error":stop
  125.     if (3 or 1) <> 3 then ?"OR Error":stop
  126.     if (10 xor 5) <> 15 then ?"XOR Error":stop
  127.     if (not true) <> false then ?"TRUE/FALSE Error":stop
  128.     if (5 imp 124) <> -2 then ?"IMP Error":stop
  129.     if (126 eqv 23) <> -106 then ?"EQV Error":stop
  130.  
  131.     if tan(pi/4) <> 1 then ? "TAN/PI Error":stop
  132.  
  133.     a$ = "   BOB": if ltrim$(a$)<>"BOB" then ? "LTRIM$ Error":stop
  134.     if rtrim$("X   ") <> "X" then ?"RTRIM$ Error":stop
  135.  
  136.     a=0
  137.     repeat
  138.         incr(a)
  139.     until a=10
  140.     if a<>10 then ?"REPEAT/UNTIL Error":stop
  141.     while a>1
  142.         decr(a)
  143.     wend
  144.     if a<>1 then ?"WHILE/WEND Error":stop
  145.  
  146.  
  147.       print: 'print "End of test - OK"
  148.       print "Test took " timer-start " seconds" : end
  149.       end
  150.  
  151.  
  152. 100 y = 1 : return
  153.     print "Multiline or Return Error":stop
  154.  
  155.  
  156. 2000 'port tests
  157.      status 1
  158.      beep
  159.      status 1
  160.      locate 7,14
  161.      click
  162.      print "1-201-555-1234";
  163.      locate 7,13
  164.      status 0
  165.      box 6,11,8,30,1
  166.      dial "1-201-555-1234"
  167.      box 6,11,8,30,0
  168.      for ct = 48 to 63
  169.        sound ct, 15
  170.      next ct
  171.      locate 4,1
  172.      olddis = getdisplay
  173.      display 2 'static
  174.      vlocate 1,1
  175.      dir = 4:gosub 5000
  176.      dir = 2:gosub 5000
  177.      vx=vcsrlin:vy=vpos(0)
  178.      vlocate 11,12
  179.      if vcsrlin<>11 then print "VCSRLIN Error":stop
  180.      if vpos(0)<>12 then print "VPOS Error":stop
  181.      vlocate vx,vy
  182.      dir = 3:gosub 5000
  183.      dir = 1:gosub 5000
  184.      vlocate 1,1
  185.      display olddis
  186.      goto 1000
  187.  
  188.  
  189. 5000  for xx = 1 to 5
  190.          vmove dir,1
  191.          click
  192.       next xx
  193.       return
  194.  
  195. 9999 print fre(0)
  196.   wait
  197.   return
  198.  
  199.  
  200.  
  201. '
  202. '  This the string test file.  It will be added to 
  203. '  TEST.BAS later.
  204. '
  205. '
  206. 1234
  207.  dim bz(5,5)
  208.  for x = 1 to 5
  209.   for y = 1 to 5
  210.    if bz(x,y)<>0 then print "Array Initialize Error":stop
  211.   next y
  212.  next x
  213.  
  214.  for x = 1 to 5
  215.   for y = 1 to 5
  216.    bz(x,y) = (x-1)*5+y
  217.   next y
  218.  next x
  219.  
  220.  for x = 1 to 5
  221.   for y = 1 to 5
  222.    if bz(x,y) <> (x-1)*5+y then print "Two Dimensional Array Error":stop
  223.   next y
  224.  next x
  225.  
  226.  dim sa$(10)
  227.  print time$;"  ";date$;"  Free ";fre(0)
  228.  sa$(1) = "array 1"
  229.  sa$(2) = "array 2"
  230.  if sa$(1)<>"array 1" then print "string array Error":stop
  231.  s$="BJGleason"
  232.  f$=left$(s$,2)
  233.  if f$<>"BJ" then print "Left$ Error":stop
  234.  m$=mid$(s$,2,2)
  235.  if m$<>"JG" then print "Mid$ Error":stop
  236.  if right$(s$,7)<>"Gleason" then print "Right$ Error":stop
  237.  if instr(s$,"Gle")<>3 then print "Instr Error":stop
  238.  c$ = "123"
  239.  d$ = c$ + "456" + c$
  240.  if d$<>"123456123" then print "String Cat Error":stop
  241.  if val("910")<>910 then print "Val Error":stop
  242.  if asc("1")<>49 then print "ASC Error":stop
  243.  qw$=str$(val(str$(val("66"))+"5")+1)
  244.  if qw$<>"666" then print "String Error":stop
  245.  if port=1 then dial d$
  246.  if bin$(7) <> "111" then print "BIN$ Error":stop
  247.  if ucase$("abc") <> "ABC" then print "UCASE$ Error":stop
  248.  if lcase$("CdC") <> "cdc" then print "LCASE$ Error":stop
  249.  bjt = 123
  250.  bjt$ = "bjt = 345"
  251.  eval bjt$
  252.  if bjt <> 345 then print "Eval Error":stop
  253.  a$ = "BOB"
  254.  a$ = A$ + a$
  255.  if a$<>"BOBBOB" then print "String Addition Error":stop
  256. return
  257. ə